home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.37 / pointer / clock-pointer.p < prev    next >
Text File  |  1994-09-17  |  2KB  |  74 lines
  1.  
  2.  
  3. { Programm:    Pointer (Clock)
  4.   ~~~~~~~~~
  5.   Sprache:     KickPascal2.12/OS2
  6.   ~~~~~~~~
  7.   Sinn:        BusyPointer...
  8.   ~~~~~
  9.   Autor:       PackMAN
  10.   ~~~~~~       c/o Falk Zühlsdorff
  11.                Lindenberg 66
  12.                D-98693 Ilmenau/Thüringen
  13.  
  14.   Copyright:   GIFTWARE,  jeder Nutzer sendet mir ein z.B. eine
  15.   ~~~~~~~~~~              Disk mit guten C / PascalSource zu folgenden
  16.                           Themen: Packeralg. / Graphikdruck /
  17.                                   Printer.device  oder gute neue PD zu... }
  18.  
  19. Program Pointer;
  20. USES Intuition;
  21. TYPE  Poifeld   = array[1..40] of Word;
  22. VAR   Win     : ^Window;
  23.       Msg     : ^IntuiMessage;
  24.       e       : boolean;STATIC;
  25.       Poiptr  : ^Poifeld;
  26.       waitreq : Requester;
  27.       req     : boolean;
  28.  
  29. BEGIN
  30.  Poiptr:=NIL;
  31.  Poiptr:=PTR(Alloc_Mem(SizeOf(Poifeld),MEMF_CHIP+MEMF_CLEAR));
  32.  IF Poiptr=NIL THEN exit;
  33.  Poiptr^:=Poifeld($0000,$0000,$0400,$07c0,$0000,$07c0,$0100,$0380,
  34.                   $0000,$07e0,$07c0,$1ff8,$1ff0,$3fec,$3ff8,$7fde,
  35.                   $3ff8,$7fbe,$7ffc,$ff7f,$7efc,$ffff,$7ffc,$ffff,
  36.                   $3ff8,$7ffe,$3ff8,$7ffe,$1ff0,$3ffc,$07c0,$1ff8,
  37.                   $0000,$07e0,$0000,$0000,$0000,$03f2,$0000,$0000);
  38.  
  39.  Win:=Open_Window(200,0,300,100,$0203,_CLOSEWINDOW,
  40.          ACTIVATE+WINDOWCLOSE,
  41.          'Busy (wait 2 Sec.)',Nil,0,0,0,0);
  42.  IF Win=Nil THEN  exit;
  43.  
  44.  e:=false;
  45.  
  46.  InitRequester(^waitReq);      {Req: 0*0*0*0}
  47.  req:=Request(^waitReq,Win);
  48.  
  49.  SetPointer(Win,PoiPtr,16,16,-6,0);
  50.  
  51.  delay(100);
  52.  
  53.  ClearPointer(Win);
  54.  
  55.  EndRequest(^waitReq,WIN);
  56.  
  57.  SetWindowtitles(Win,'Clock-Pointer © by PackMAN',Nil);
  58.  
  59.  REPEAT
  60.   Msg:=Wait_Port(Win^.UserPort);
  61.   Msg:=Get_Msg(Win^.UserPort);
  62.   Reply_Msg(Msg);
  63.   IF Msg^.Class=_CLOSEWINDOW THEN e:=true;
  64.  UNTIL e;
  65.  Close_Window(Win);
  66.  Free_Mem(Long(Poiptr),sizeof(Poifeld));
  67. END.
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.